home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 76 / XENIATGM66.iso / Indiana Jones / Indiana Jones.exe / RESOURCE / PREVIEW.GOB / cog_gen_climbdebris.cog < prev    next >
Text File  |  1999-11-15  |  4KB  |  136 lines
  1. # Jones 3D Cog Script
  2. #
  3. # gen_ClimbDebris.cog
  4. #
  5. # [TRM]
  6. #
  7. # (C) 1998 LucasArts Entertainment Co. All Rights Reserved
  8. # ========================================================================================
  9.  
  10. symbols
  11.  
  12.     message     startup
  13.     message     entered
  14.     message     timer
  15.     
  16.     thing       player          local
  17.     thing       rocks           local
  18.     thing       origin          local
  19.     
  20.     sector      tempSect        local
  21.     
  22.     surface     climbFace
  23.     
  24.     template    debris0
  25.     template    debris1
  26.     
  27.     sound       sndFalling=gen_fallingrock_c.wav        local
  28.     
  29.     vector      RHPos           local
  30.     vector      LHPos           local
  31.     vector      RFPos           local
  32.     vector      LFPos           local
  33.     vector      rocksVel        local
  34.     vector      rocksRotVel     local
  35.     vector      rvec            local
  36.     
  37.     int         i=0             local
  38.     int         randNum         local
  39.     int         numDebris=2     local
  40.     int         sound1          local
  41.     
  42.     int         longClimb=0
  43.     
  44.     flex        rockvelocity    local    #GGJ
  45.     
  46. end
  47.  
  48. # ========================================================================================
  49.  
  50. code
  51.  
  52. startup:
  53.  
  54.     player = GetLocalPlayerThing();
  55.     return;
  56.  
  57. # ========================================================================================
  58.  
  59. entered:
  60.  
  61.     if(GetSenderRef() == climbFace)
  62.     {
  63.         SetTimer(RandBetween(2, 3));
  64.     }
  65.     
  66.     return;
  67.         
  68. # ========================================================================================
  69.  
  70. timer:
  71.  
  72.     randNum        = RandBetween(0, 3);    # Which appendage to drop a load from
  73.     numDebris    = RandBetween(1, 3);    # How many rocks to drop
  74.     origin        = GetThingPos(player);
  75.     tempSect    = GetThingSector(player);
  76.     
  77.     RVec = GetThingRVec(player);
  78.     RHPos = VectorSet(0.035 * VectorX(RVec), 0.035 * VectorY(RVec), 0.07);
  79.     LHPos = VectorSet(-0.035 * VectorX(RVec), -0.035 * VectorY(RVec), 0.07);
  80.     RFPos = VectorSet(0.03 * VectorX(RVec), 0.03 * VectorY(RVec), -0.08);
  81.     LFPos = VectorSet(-0.03 * VectorX(RVec), -0.03 * VectorY(RVec), -0.08);
  82.     
  83.     # if player is moving up, down, left or right -- generate debris
  84.     if((GetMoveStatus(player) >= 22) && (GetMoveStatus(player) <= 25))
  85.     {
  86.         PlaySoundLocal(sndFalling, 1.0, 0.0, 0x0, 0);
  87.         
  88.         # Drop a load!
  89.         for(i=0; i<numDebris; i=i+1)                                                                        
  90.         {
  91.             rocks = CreateThingAtPos(debris0[RandBetween(0, 1)], tempSect, VectorAdd(origin, RHPos[randNum]), '0 0 0');
  92.             Call rockVelocity;
  93.             Sleep(0.1);
  94.         }
  95.  
  96.         if(longClimb == 1) SetTimer(RandBetween(3, 5));
  97.         else SetTimer(RandBetween(1, 3));
  98.     }
  99.     
  100.     # if player climbs over the top, generate some debris and stop the pulse
  101.     else if(GetMoveStatus(player) == 26)
  102.     {
  103.         PlaySoundLocal(sndFalling, 1.0, 0.0, 0x0, 0);
  104.  
  105.         # Just drop a load from the left foot
  106.         for(i=0; i<numDebris; i=i+1)                                                                        
  107.         {
  108.             rocks = CreateThingAtPos(debris0[RandBetween(0, 1)], tempSect, VectorAdd(origin, LFPos), '0 0 0');
  109.             Call rockVelocity;
  110.             Sleep(0.1);
  111.         }
  112.     }
  113.  
  114.     # if player is stopped, don't do anything except reset the timer to check again later
  115.     else if(GetMoveStatus(player) == 9) 
  116.     {
  117.         SetTimer(RandBetween(1, 3));
  118.     }
  119.     
  120.     return;
  121.         
  122. # ========================================================================================
  123.  
  124. rockVelocity:
  125.  
  126.     rocksVel = VectorSet(0, 0, 0.01);
  127.     rocksRotVel = VectorSet(0.0, 0.0, 360.0);
  128.     SetThingVel(rocks, VectorScale(rocksVel, 0.7));
  129.     SetThingRotVel(rocks, rocksRotVel);
  130.     return;
  131.         
  132. # ========================================================================================
  133.  
  134. end
  135.  
  136.